#! /usr/bin/perl
my @args = @ARGV;
my $source = join('', <>);
if ($ENV{MKZIP} eq "no") {
  print $source, "\n";
  exit 0;
}
open FILE, ">~mkzip~";
print FILE $source;
close FILE;
my $target = `gzip -c ~mkzip~`;
unlink "~mkzip~";
print length($source), " ", length($target), " 4p-gunzip ", $target, "\n";
